home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Bus / S / Stock HELPER®.cpt / Stock HELPERÆ V0.2 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1988-03-23  |  4KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.2</name>
  5.     <id>-1</id>
  6.     <cardCount>8</cardCount>
  7.     <cardID>36467</cardID>
  8.     <listID>2952</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStackGlobal operationMode,dateforUpdateglobal UpdateField,span1,span2,span3global upArrow,downArrowglobal maxDataPoints,minBaseValueglobal firstChart,saveLevelhide message boxhide menubarput the userLevel into saveLevelset userLevel to 3put 16692 into upArrowput 3584 into downArrowput 5 into span1put 15 into span2put 40 into span3put 52 into maxDataPointsput 10000 into minBaseValueput 7 into firstChart -- number of first chart cardend openStackon closeStackglobal saveLevelset userLevel to saveLevelend closeStackon clearScreenchoose select tooldoMenu select alldoMenu clear pictureend clearScreenfunction maxLine what,itemNrput item itemNr of line 1 of what into resultrepeat with i = 2 to the number of lines in whatput max(result,item itemNr of line i of what) into resultend repeatreturn resultend maxLinefunction minLine what,itemNrput item itemNr of line 1 of what into resultrepeat with i = 2 to the number of lines in whatput min(result,item itemNr of line i of what) into resultend repeatreturn resultend minLinefunction rounders sum,spanput round(100*(sum/span))/100 into resultreturn resultend rounderson ScrolltoLastLineglobal operationMode,dateforUpdate,lineCountif operationMode="Update" thenif dateforUpdate‚â†item 1 of line lineCount of field "data" thenget line lineCount of field "data"put it&return&dateforUpdate into line lineCount of field "data"add 1 to lineCountget line lineCount of field "data"put it&"," into line lineCount of field "data"put lineCount-4 into scrolledLinesif scrolledLines>0 thenmultiply scrolledLines by the textheight of field "Data"set the scroll of field "Data" to scrolledLinesend ifend ifend ifend ScrolltoLastLineon arrowDirection arrowNrput "bkgnd button "&quote&"Direction "&arrowNr&quote into directionget line arrowNr of field "Directions"if it>0 thenset the icon of direction to itshow directionelsehide directionend ifend arrowDirectionon MovingAverage Avg,avgNr,span,itemNrglobal lineCountglobal upArrow,downArrowput 0 into avgaput 0 into avgbput lineCount into itemCountput "Average "&avgNr into avgFieldif lineCount>=span thenput rounders(Avg,span) into field avgFieldelseput empty into field avgFieldend ifif lineCount>=span+2 thenif itemNr>0 thenput item itemNr of line itemCount of field "data" into endValue1subtract 1 from itemCountput item itemNr of line itemCount of field "data" into endValue2subtract span-1 from itemCountput item itemNr of line itemCount of field "data" into pastValue1subtract 1 from itemCountput item itemNr of line itemCount of field "data" into pastValue2elseput -itemNr into lowItemput lowItem-1 into highItemput item highItem of line itemCount of field "data"¬¨into endValue1subtract item lowItem of line itemCount of field "data"¬¨from endValue1subtract 1 from itemCountput item highItem of line itemCount of field "data"¬¨into endValue2subtract item lowItem of line itemCount of field "data"¬¨from endValue2subtract span-1 from itemCountput item highItem of line itemCount of field "data"¬¨into pastValue1subtract item lowItem of line itemCount of field "data"¬¨from pastValue1subtract 1 from itemCountput item highItem of line itemCount of field "data"¬¨into pastValue2subtract item lowItem of line itemCount of field "data"¬¨from pastValue2end ifput Avg into Avgasubtract endValue1 from Avgaadd pastValue1 to Avgaput Avga into Avgbsubtract endValue2 from Avgbadd pastValue2 to Avgbput 0 into iconNrif Avg > Avga thenif Avga>Avgb thenput upArrow into iconNrend ifelseif Avg < Avga thenif Avga